map ac-nk6 (goto start insline down a-nk7 up first right right (\$DmeFold) left tlate +1 if c=91 (tlate -26 left tlate +1) wleft scanf %10s set DmeFold (\$scanf) ifelse 0 (bsave T:\$DmeFold bdelete resettoggle 0) (unblock deline))
map ac-nk4 (firstnb scanf %10s if c=64 (if b (last return up) deline) insfile T:\$scanf)
map ac-nk5 (bottom last return (END_OF_FILE) top first right right while !b (ifelse c=64 ac-nk4 down) deline)
map c-tab (wordwrap off insertmode on ping 0 first while !r (( ) down first) pong 0 if !2 (insertmode off) if 3 (wordwrap on))
map cs-tab (ping 0 firstnb while !r (ifelse x>2 (bs bs) (if x=2 bs) down firstnb) pong 0)
map c-i (escimm (set InsString ( )) escimm (set StringLaenge 1) if 0 (insertmode on wordwrap off goto start while cb ((\$InsString) repeat (\$StringLaenge) left down) if !2 (insertmode off) if 3 (wordwrap on) goto start))
map c-d (escimm (set AnzDel 1) if 0 (wordwrap off goto start while cb (repeat (\$AnzDel) del down) if 3 (wordwrap on) goto start))
# map c-i (escimm (set InsString ( )) escimm (set StringLaenge 1) insertmode on ping 0 first ifelse !r (settoggle 1) (resettoggle 1) while 1 (pong 0 (\$InsString) repeat (\$StringLaenge) left down ping 0 first ifelse !r (settoggle 1) (resettoggle 1)))
# map c-d (escimm (set AnzDel 1) while !r (repeat (\$AnzDel) del down))